home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 049a.dms / 049a.adf / EXAMPLE_PROGRAMS / example15_1.AMOS / example15_1.amosSourceCode < prev    next >
AMOS Source Code  |  1993-09-09  |  1KB  |  55 lines
  1. Rem example15_1.Amos 
  2. 'another way of producing menus
  3. '
  4. Change Mouse 2
  5. '
  6. BEGIN:
  7. '
  8. '
  9. Rem unpack the previously designed menu screen 
  10. Unpack 10 To 0
  11. Paper 2 : Pen 0
  12. Centre "Click on an option, any mouse key to quit playing music and viewing picture."
  13. '
  14. '
  15. Rem set up the zone coordinates, gathered from the getzone.amos program  
  16. Reserve Zone 3
  17. Set Zone 1,256,93 To 362,104 : Rem set loadiffcoords for zone 
  18. Set Zone 2,256,109 To 362,119 : Rem load mod 
  19. Set Zone 3,256,125 To 362,136 : Rem quit 
  20. '
  21. '
  22. Rem the main loop, waiting for a selection to act on 
  23. KEE:
  24. While Mouse Key=0 : Wend 
  25. KK=Mouse Zone
  26. '
  27. '
  28. Rem if a valid selection is made 1,2 or 3 then gosub program 
  29. If KK=1 Then Gosub PIC : Goto BEGIN
  30. If KK=2 Then Gosub LMOD : Goto BEGIN
  31. If KK=3 Then Edit 
  32. Goto KEE
  33. '
  34. '
  35. Rem the loadiff subroutine,when finds a return, returns to the 
  36. Rem execute the next staement in the line it camr from.
  37. PIC:
  38. F$=Fsel$("*.*","","SELECT AN IFF PICTURE")
  39. '
  40. Rem if quit selected from menu return now
  41. If F$="" Then Return 
  42. Load Iff F$,0
  43. While Mouse Key=0 : Wend 
  44. Return 
  45. '
  46. '
  47. Rem the load mod subroutine similar to above 
  48. LMOD:
  49. F$=Fsel$("*.*","","SELECT A TRACKER MOD")
  50. If F$="" Then Return 
  51. Track Load F$,5
  52. Track Play 5
  53. While Mouse Key=0 : Wend 
  54. Track Stop 
  55. Return